function shell_report_commit(OO_commit, ...
     D, K, N, D_enroll_st,  pr_y, alpha, B1_c, beta_c, T1, B2_c,...
     export_tex, folder_tex_cf, resource_y1, T2)

ssolve_market_all = OO_commit(1).solve_market_all_cf; % N.ist x 1
ssolve_market     = OO_commit(1).solve_market_cf; % N.st x 1

% check convergence under commitment & baseline
nnon_converge_all_commit = 0; % N.ist x 1
nnon_converge_commit = 0; % N.st x 1
for ss=1:2
    nnon_converge_all_commit = nnon_converge_all_commit + OO_commit(ss).non_converge_all_cf;
    nnon_converge_commit = nnon_converge_commit + OO_commit(ss).non_converge_cf;
end

ss_ind = 2;

p1_eq            = OO_commit(ss_ind).p1_cf; % N.ist x 1
p2_eq            = OO_commit(ss_ind).p2_cf; % N.ist x KM
n_eq             = OO_commit(ss_ind).n_cf;  %N.st x 1
profit_eq        = OO_commit(ss_ind).profit_cf; % N.ist x 1
non_converge_all = OO_commit(ss_ind).non_converge_all_cf; % N.ist x 1
solve_market_all = OO_commit(ss_ind).solve_market_all_cf; % N.ist x 1
fsolve_all       = OO_commit(ss_ind).fsolve_all_cf; % N.ist x 1
EV_y             = OO_commit(ss_ind).EV_y_cf; % N.st x N_y
enrollment_eq    = OO_commit(ss_ind).enrollment_cf; % N.st x 1
enrollment_m_eq  = OO_commit(ss_ind).enrollment_m_cf; % N.st x 1
enrollment_f_eq  = OO_commit(ss_ind).enrollment_f_cf; % N.st x 1
non_converge     = OO_commit(ss_ind).non_converge_cf; % N.st x 1
solve_market     = OO_commit(ss_ind).solve_market_cf; % N.st x 1
rs_share_eq      = OO_commit(ss_ind).rs_share_cf;  % N.ist x 1

[fit_off_st, fit_off_ist] = report_baseline(enrollment_eq, non_converge, solve_market,...
    D, K, N, D_enroll_st);

% compute changes relative to the baseline
ss_ind = 2; % baseline saved as ss=2
ns = 1; % just loop over ss=1, commitment case
RS_commit = report_outcome(OO_commit, ns, ss_ind, ...
    ssolve_market_all, nnon_converge_all_commit, ssolve_market, nnon_converge_commit,...
    D, K, N, D_enroll_st, pr_y, alpha, B1_c, beta_c, T1, B2_c,...
    fit_off_st, fit_off_ist, resource_y1, T2);

% Table 3
if export_tex==1
    file_tex  = fullfile(folder_tex_cf,'cf_commit.tex');
    FID = fopen(file_tex, 'w');
    fprintf(FID, '\\begin{table} \n');
    fprintf(FID, '\\begin{center} \n');
    fprintf(FID, '\\scalebox{1.0}{ \n');
    fprintf(FID, '\\begin{tabular}{lc} \\hline \n');
    fprintf(FID, ' & \\%% change from baseline economy  \\\\ \n');
    fprintf(FID, '\\hline \n');
    fprintf(FID, 'Initial rate & %10.2f \\\\ \n', RS_commit.p1_vec);
    fprintf(FID, 'Revised rate & %10.2f \\\\ \n', RS_commit.p2_vec);
    fprintf(FID, 'Fringe entrants & %10.2f \\\\ \n', RS_commit.n_vec);
    fprintf(FID, 'Total enrollment & %10.2f \\\\ \n', RS_commit.enroll_vec);
    fprintf(FID, 'Consumer welfare & %10.2f \\\\ \n', RS_commit.welfare_vec);
    fprintf(FID, 'Major insurer profits & %10.2f \\\\ \n', RS_commit.profit_major);
    fprintf(FID, 'Fringe insurer profits & %10.2f \\\\ \n', RS_commit.profit_minor);
    fprintf(FID, '\\hline \n');
    fprintf(FID, '\\end{tabular} \n');
    fprintf(FID, '} \n');
    fprintf(FID, '\\end{center} \n');
    fprintf(FID, '\\caption{ Impact of insurer commitment \\newline \\small {\\emph{Notes}: The table reports percent changes in outcomes as the economy moves from the baseline regime to a counterfactual regime where insurers commit to constant pricing, i.e., no rate increases in the second stage.}} \n');
    fprintf(FID, '\\label{table_cf_commit} \n');
    fprintf(FID, '\\end{table} \n');

end
























